@array = ("/media/banana.jpg","/media/Apple/apple.jpg");

##</code><code>##

@array = sort mysort @sort;

sub mysort {
    lc($a) cmp lc($b);
}