in reply to How do I get my code to not repeat numbers and also sort the numbers

As for sorting the select numbers, use sort { $a <=> $b }: 
@bag = shuffle(@bag);
my @values = sort { $a <=> $b } @bag[0..4];

[download]

In Section Seekers of Perl Wisdom