use Modern::Perl;

my $a = '0001';
say 'The variable $a contains: ', $a;
say 'The sum of $a and 1 is: ', $a + 1;