#!/usr/bin/perl
#use strict;
#use warnings;
#use diagnostics;

my $a;
my @array = sort { $a <=> $b } 19, 28, 1 .. 3;
print "@array\n";
__END__
Can't use "my $a" in sort comparison at oha2.pl line 7