use Devel::Peek;

my @a = (1.1, 2.2);
print STDERR "allocated as:\n";
Dump \@a;

@a = sort { $a <=> $b } @a;
print STDERR "\nsorted as numbers:\n";
Dump \@a;

@a = sort @a;
print STDERR "\nsorted as strings:\n";
Dump \@a;