#!/usr/bin/perl --

use strict;
use warnings;

Main( @ARGV );
exit( 0 );


sub Snacks::new {
    my($s,$n) = @_;
    return bless \$n, $s;
}
sub Snacks::start { ${$_[0]} }

sub Main {
    my @vfs = map { Snacks->new(int rand 100) } 1 .. 10;
    my @sorted_vfs = sort { $a->start() <=> $b->start() } @vfs; 
    print "\n", join ' ', map { $_->start } @vfs;
    print "\n", join ' ', map { $_->start } @sorted_vfs;
    print "\n";
}

__END__

8 48 50 42 20 42 99 23 25 83
8 20 23 25 42 42 48 50 83 99