#!/usr/bin/perl -w
use strict;

sub print_calling_line {
  my $actual_line = $_[0];
  my $caller_line = (caller)[2];
  printf "Called from line %2d; caller() reports line %2d\n",
    $actual_line, $caller_line;
}

print_calling_line( __LINE__,
  { A => 1, B => 2, C => 3 }
);

print_calling_line( __LINE__,
  %{{ A => 1, B => 2, C => 3 }}
);