#Source array
@sourceResult = $sourceTelnet->cmd("$sourceGetsnapshots");
print @sourceResult;
@sourceGrepsnaps = grep(/20(13|14)/, @sourceResult);
print "This is sourceGrepsnaps\n";
print @sourceGrepsnaps;
print "\n";