use Types::Standard qw(Int);

tie my @list, Int;

push @list, 1;
push @list, 2;
push @list, 3.14;   # dies
[download]