#!/usr/bin/perl -l

package Foo;
$, = " ";
print sort { $Foo::a <=> $Foo::b } qw( 1 7 2 0 4 3 6 );