#!/usr/bin/perl
use warnings;
use strict;

sub filetest {
    my @answer;
    print "\n\$_[0] now holds $_[0] \n";
    return "File does not exist\n"
         unless -e $_[0];
    push @answer, "readable "
         if -r $_[0];
    push @answer, "writable "
         if -w $_[0];
    push @answer, "executable "
         if -x $_[0];
    print "function result: ";
    print @answer;
    return @answer;

}

while (@ARGV) {
      my $file = shift @ARGV;
      $file =~ s/\s*$//; 
      print "\$file is $file";
      my @answer = filetest($file); #thanks for the style tip!
      print "\nmain answer: ";
      print @answer;
      print "\n";
}