Select Code to Download

#!/usr/bin/env perl

...
my $x = 3;

dd [(map{@;==$x?do{$;=[@;];@;=($_);$;}:do{push(@;,$_);()}}@a),[@;]];

[["a", "b", "c"], ["e", 1, 2], [3, 4, 5], [3, "f"]]