my @sorted= sort qw(this list isn't sorted yet);
my $num= 3;
display_results( @sorted, $num );

##</code><code>##

("isn't","list","sorted","this","yet",3)

##</code><code>##

display_results( $num, @sorted );
sub display_results {
    my( $num, @sorted )= @_;