use Lingua::EN::Numbers;
my $n = Lingua::EN::Numbers->new;
print $n->get_string(1281), " fish in the sea.\n";

#or

use Lingua::EN::Numbers qw(get_string);
print get_string(1281), " fish in the sea.\n";