my %UHash;
foreach my $pic (@Linked_pics) {
    # Meant to pick the filename out
    my $lk = substr($pic, 1 + rindex($pic, '/'));
    $UHash{$lk} = $pic;
}
@Linked_pics = map {$UHash{$_}} sort keys %UHash;