Duplicate global and local variable name (use strict;)
#!/usr/bin/perl -w use strict; $record = 4; print "We're at record ", $record, "\n"; { my $record; $record = 7; print "Inside the block:", $record, "\n"; } print "Outside, we're still at record ", $record, "\n";