use warnings;  # always
use strict;    # always

use Data::Dump qw(dd);  # if you want to use dd()

...  # the rest of your source code