use strict;
use warnings;
my @h = (
  sub { return sprintf ("0x%x in HEX\n", shift) },
  sub { return sprintf ("%b in Binary\n", shift) },
  sub { return sprintf ("%d in Decimal\n", shift) },
);

print $_->(5) for @h;