Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...

print " INPUT: @words\n";
print "SORTED: @sorted\n";
  2. or download this
        push @sorted, sort @{$hash{$vowels}};
  3. or download this
        $vowels =~ s/[^aeiou]/z/g;