Because you always effectively assign next => $curr , hence it's always defined.

Try Data::Dumper to check if your data is what you think it should be.