$lookfor=; chop($lookfor); foreach $inv (@inventory) { ($YEAR,$MAKE,$MODEL,$PRICE)=split(/ /, $inv); push (@year,$YEAR); push (@make, $MAKE); push (@price, $PRICE); } if ($lookfor =~ /year/i){ @sorted = sort @year; print join "\n",@sorted; print "\n"; } if ($lookfor =~ /make/i){ @sorted = sort @make; print join "\n", @sorted; print "\n"; }