my $str = ...;

sub fetchOne{ unpack 'a4', substr $str, $_[ 0 ] * 4, 4 }