gistfile1.pl

my @input_numbers = (1, 2, 4, 8, 16, 32, 64);

my @result = map {
  my @digits = split //,$_; # $_を文字列として1文字ずつに分解する => 桁ごとに分解
  if ($digits[-1] == 4) { # 一番最期の桁(=1の位)の桁がもし4であれば
    @digits; #すべての桁をリストとして返す
  } else { #そうでなければ
    (); # なにも返さない
  }
} @input_numbers;

# => (4, 6, 4)

foreach (@result) {
  say;
}
__END__