#!/usr/bin/perl

$check=1;
if($check==1){
 my %test= ( '2','funst' );
 print "innerhalb $test{2} \n";
}
print "außerhalb: $test{2}"