my $var = 1;
my $var2 = '-';

sub print_was {
  my $par = shift;
  print $ref $par ? $$par : $par;
  print $var2;
  # Wenn Du die Referenzen nicht derefenenzieren würdest,
  # sondern anzeigst, siehst, Du daß $var und $var nicht im 
  # geleichen Speicherbereich liegen, je nachdem welche 
  # $var eben gerade gültig ist. 
}

# jetzt freihstehender Block
{ my $var = 2;
  print_was $var;
  print_was \$var;
  # Die Variable $var mit dem Wert 2 verschwindet nach dem } in Nirwana.
}
print_was $var;
print_was \$var;