my $next_html = "http://.../albums.cgi?...&pic=$nextpic&user$user";

##</code><code>##

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