#!/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);