#!/usr/bin/perl -wl
use strict;

my @array = qw(465.274 21893.32 72.37); # qw creates quoted strings
print for (sort {$a <=> $b} @array);

##</code><code>##

72.37
465.274
21893.32

##</code><code>##

-- 
#!/usr/bin/perl -np
BEGIN{@ARGV=$0}s(^([^=].*)|=)()s;
=Just another perl hacker\