my $friend = {
"Fernando" => "driver" ,
"Horacio" => "co-pilot" ,
"Bia" => "passenger",
"Joao" => "passenger",
"Harry" => "passenger",
};
$going_to = "YAPC::SA"; @ night;
until(an_accident){
int$errupt;
}
$friend->{ Fernando } = "hurt his head, but is OK...";
$friend->{ Horacio } = "had amnesia, but is OK...";
$friend->{ Bia } = "hurt her back, but is OK...";
$friend->{ Joao } = "hurt his chest, but is OK...";
$friend->{ Harry } = "hurt the spine";
$friend->{ Harry } = "is in hospital";
$friend->{ Harry } = "will have a medical surgery";
$friend->{ Harry } = "will be OK";
for$everybody(values %{$friend}){
for $Harry("To be OK"){$everybody="is praying"};
}
"soon as possible"; $we."will"; print "God bless! Harry is OK!!!";