Perl – Lord of the Ring combat simulator

#!/usr/bin/perl # emulating a minimal combat simulation # against Aragorn use strict; use warnings; use feature ‘say’; my $hero = { name => ‘Aragorn the Ranger’, weapon =…