$zahl = 0;
print "Gib eine Zahl zwischen 1 und 5 ein : ";
chomp($zahl=<STDIN>);

SWITCH: 
  {
  $zahl == 1 && do { print "Toll, gleich die ", $zahl, "\n";
                     last SWITCH; } ;
  $zahl == 2 && do { print "Das war die ", $zahl, "\n";
                     last SWITCH; } ;
  $zahl == 3 && do { print "In der Mitte ist die ", $zahl, "\n";
                     last SWITCH; };
  $zahl == 4 && do { print "Und jetzt mal die ", $zahl, "\n";
                     last SWITCH; };
  $zahl == 5 && do { print "Das war die ", $zahl, "\n";
                     last SWITCH; } ;
                do { print "Ey, nur zwischen 1 und 5, Du Nase!\n";
                     last SWITCH; } ;
  }