for( 0..$#{$images} ){
    print "Nr: $_\n";
}