my ($foo, $bar, $baz, $quux, $blah);

##</code><code>##

my $foo;
my $bar;
my $baz;
my $quux;
my $blah;

##</code><code>##

my $foo = /aoeu/ ? 15 : 16;

my $bar = Bar->new();

bless \my($baz), $class;

open my $quux, '<', $file or die $!;

my $bytes_read = read $quux, my($blah), $length;