$mist = '77';

sub xx
{
print $_;   #Hier soll nun aber "mist" augegeben werden
}