use strict;
use warnings;

my @found_images = qw( hello i am fine);
my $pics_to_find = 2;

my @saved_images = qq(@found_images[0..$pics_to_find]);

#$,="\n";
#print @saved_images;

print $saved_images[0];

__END___
OutPut is :

hello i am