Help for this page
#!/usr/bin/perl -w ... print join(' ', sort {$a <=> $b} keys %values), "\n"; }
3 4 11 12 13 7 8 9