RosettaCodeData/Task/Singly-linked-list-Element-insertion/Perl/singly-linked-list-element-insertion-1.pl

my @l  = ($A, $B);
push @l, $C, splice @l, 1;