#!/usr/bin/perl
use strict; use warnings;

  # ¼ýÀÚ ¹è¿­ Á¤ÀÇ
  my @num = qw( 24 6523.01 9857 51 2 43 90 2 0 0.0 636.62 );


  print "ÁÖÀÇ! Ʋ¸° ¹æ¹ýÀ¸·Î ¼ÒÆÃ\n";
  @num = sort @num;
  print $_, "\n" foreach (@num); # ¹è¿­ Ãâ·Â


  print "\n------------------\n";


  print "¹Ù¸¥ ¹æ¹ýÀ¸·Î ¼ýÀÚ ¼ÒÆÃ\n";
  @num = sort {$a <=> $b} @num;  # 1,2,3 ¼øÀ¸·Î Á¤·Ä; Ascending
  print $_, "\n" foreach (@num); # ¹è¿­ Ãâ·Â


  print "\n------------------\n";


  print "¹Ù¸¥ ¹æ¹ýÀ¸·Î ¼ýÀÚ ¿ª¼ø(Descending) ¼ÒÆÃ\n";
  @num = sort {$b <=> $a} @num;  # 3,2,1 ¿ª¼øÀ¸·Î Á¤·Ä
  print $_, "\n" foreach (@num); # ¹è¿­ Ãâ·Â