##

#!usr/bin/perl -t 
use strict; 
use warnings; 
use CGI; 
use CGI::Carp qw/fatalsToBrowser/; 
use File::Basename; 

our $query = CGI->new; 
our @array = (); 

our $photo = $query->param("photo00"); 

# check if the field's not null, if not, array it 
if ($photo != "") {push(@array, $photo);} 

print "Content-type: text/html\n\n"; 
print "@array \n"; # this does nothing - how come? 
print "$photo \n"; # this prints to screen fine