You are confused because of things that implied in Perl.

Let's back up. You are treating your hash of subroutines like an array of subroutine references. Do you mean to do the following?

my %h = (
  func1 => sub { return sprintf ("0x%x", shift) },
  func2 => sub { return sprintf ("%b", shift) },
  func3 => sub { return sprintf ("%d", shift) },
);
[download]

You Then would selectively call the sub you want using using the subroutine reference invocation idiom,

$h{func1}->();
[download]

Assuming you do, then the shift operates on @_ - this is the implicit parameters list. For clarity, it is recommended that you unpack parameters, for example:

my %h = (
  func1 => sub { 
    my $value = shift @_;
    return sprintf ("0x%x", $value) 
  },
  func2 => sub { 
    my $value = shift @_;
    return sprintf ("%b", $value); 
},
  func3 => sub { 
    my $value = shift @_;
    return sprintf ("%d", $value); 
},
);
[download]

More about shift and why it's used inside of subroutines to unpack parameters:

• shift/unshift operate on the left hand side (LHS) of a list, in this case it is @_
• shift is like pop, but pop operates on the right hand side (RHS) of the list.
• unshift is like push, but push operates on the RHS of the list
• You must use shift on @_ in order to operate on the parameters passed to a subroutine as one traditionally would expect (i.e., Left to Right)

But of course, TIMTOWTDI. Some examples:

Pass in some number of key/value pairs as a simple list

sub foo {
  # requires an even number of parameters in @_
  my %params = @_; 
  return;
}

# to call:

foo(qw/key1 val1 key2 val2 key3 val3/);
[download]

As a singular hash reference with some number of key/value pairs already defined

sub foo {
  # get singular hash reference with any number of key/value pairs
  my $params = shift @_; # or alternatively, my $params = $_[0]
  
  # some may want to dereference (I usually don't)

  my %params = %$params;

  return;
}

# to call:

foo( {'key1' => 'val1', 'key2' => 'val2', 'key3' => 'val3' });

# or without braces,

foo( 'key1' => 'val1',  'key2' => 'val2', 'key3' => 'val3' );
[download]

I HTH.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.