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!!!";