问如何将perl中的有序数组放回shell中

EN

use strict;
use warnings;

my $filename = $ARGV[0];
open(MYINPUTFILE, $filename); # open for input
my (@lines) = <MYINPUTFILE>; # read file into list
@lines = sort(@lines); # sort the list
my ($line);
foreach $line (@lines) # loop thru list
 {
    print "$line"; # print in sort order
 }
close(MYINPUTFILE);

#!/bin/bash
clear
printf "Hello. \nPlease input a filename for a file containing a list of words you would like to use.  Please allow for one word per line.\n -> "
read filename
printf "You have entered the filename: $filename.\n"

if [ -f "$filename" ] #check if the file even exists in the current directory to use
then
    printf "The file $filename exists.  What would you like to do with this file?\n\n"
else
    printf "The file: $filename, does not exist.  Rerun this shell script and please enter a valid file with it's proper file extension.  An example of this would be mywords.txt \n\nNow exiting.\n\n"
    exit
fi

printf "Main Menu\n"
printf "=========\n"
printf "Select 1 to sort file using Shell and output to a new file.\n"
printf "Select 2 to sort file using Perl and output to a new file.\n"
printf "Select 3 to search for a word using Perl.\n"
printf "Select 4 to exit.\n\n"

echo "Please enter your selection below"
read selection
printf "You have selected option $selection.\n"

if [ $selection -eq "1" ]
then
    read -p "What would you like to call the new file? "  newfile   #asks user what they want to call the new file that will have the sorted list outputted to it
    sort $filename > $newfile
    echo "Your file: $newfile, has been created."
fi

if [ $selection -eq "2" ]
then
    read -p "What would you like to call the new file? "  newfile2
    perl sort.pl $filename
    # > $newfile2   #put the sorted list into the new output file that the user specificed with newfile2
fi

if [ $selection -eq "3" ]
then
    perl search.pl $filename
fi

if [ $selection -eq "4" ]
then
    printf "Now exiting.\n\n"
    exit
fi