use strict;
use warnings;

my $images = [
    {
        alt   => 'alt',
        desc  => 'desc',
        src   => 'src',
        width => 'undef',
    },
];

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