my $currentpic = pop(@splitsrc);
print $currentpic;