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!!!";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: YAPC accident
by mk. (Friar) on Nov 08, 2006 at 12:11 UTC | |
|
Re: YAPC accident
by mda2 (Hermit) on Nov 09, 2006 at 16:50 UTC | |
|
Re: YAPC accident
by joaocoutinho (Novice) on Nov 10, 2006 at 11:41 UTC | |
|
Re: YAPC accident
by rinceWind (Monsignor) on Nov 08, 2006 at 12:02 UTC | |
by smokemachine (Hermit) on Nov 08, 2006 at 17:35 UTC | |
|
Re: YAPC accident
by smokemachine (Hermit) on Jan 26, 2007 at 19:17 UTC |