use strict;
use warnings;

my $pics_to_find = 3;
my @found_images = (1, 2, 3, 4, 5);
my @saved_images = @found_images[0 .. $pics_to_find - 1];

print "@saved_images";

##</code><code>##

1 2 3