Skriva om php till perl!

Jag har 2 phpkoder jag behöver som perlkoder... Kan nån hjälpa mig???

kod1:

switch ($i)
{
case 0:
echo ""Hello Sweden!"";
break;
case 1:
echo ""Hello world!"";
}

kod2:
echo $i == 0 ? "Hello Sweden" : "Hello world";

1:

if($i eq 0){
   print "\"Hello Sweden!\"";
} elsif($i eq 1){
   print "\"Hello world!\"";
}

2:

print $i eq 0 ? "Hello Sweden" : "Hello world";