#!/usr/bin/perl -w
 
@username = qw(nobody anybody);
 
@foo = qx{ echo $username[0] };
chomp($foo[0]);
print "'$foo[0]'\n";
 
@foo = qx{ echo \$username[0] };
chomp($foo[0]);
print "'$foo[0]'\n";
 
@foo = qx' echo $username[0] ';
chomp($foo[0]);
print "'$foo[0]'\n";

# prints out
#'nobody'
#'[0]'
#'[0]'