use strict; 
use warnings; 
use Data::Dumper; 
my $savefile='//depot/perl/files/scripts/file.c';
my $cmd = [ qw(p4 where $savefile) ];
print Dumper($cmd);
print ref($cmd), "\n";

__END__

$VAR1 = [
          'p4',
          'where',
          '$savefile'
        ];
ARRAY

##</code><code>##

my $savefile='//depot/perl/files/scripts/file.c';
my $cmd = [ (qw(p4 where), $savefile) ];
print Dumper($cmd);
print ref($cmd), "\n";

__END__

$VAR1 = [
          'p4',
          'where',
          '//depot/perl/files/scripts/file.c'
        ];
ARRAY