perl/Tkのボタンメソッドのコマンドオプションがわからない

Question

前提・実現したいこと

a,c,cというボタンを作成し,例えばaを押すとa was pressed!というのがアウトプットされるプログラムを作りたい

発生している問題・エラーメッセージ

プログラムを開始した時点でボタンを押していないのに
a was pressed!
b was pressed!
c was pressed!
と表示される
ボタンを押すと
Tk::Error: Undefined subroutine &main::1 called at /usr/local/ActivePerl-5.28/lib/perl5/site_perl/5.28.1/darwin-thread-multi-2level/Tk.pm line 251.
 Tk callback for .button
 Tk::__ANON__ at /usr/local/ActivePerl-5.28/lib/perl5/site_perl/5.28.1/darwin-thread-multi-2level/Tk.pm line 251
 Tk::Button::butUp at /usr/local/ActivePerl-5.28/lib/perl5/site_perl/5.28.1/darwin-thread-multi-2level/Tk/Button.pm line 175
 <ButtonRelease-1>
 (command bound to event)
とでます

該当のソースコード

#!/usr/local/bin/perl
use strict;
use warnings;
use Tk;

my @names=("a","b","c");
my $mw = MainWindow->new();
  $mw->title("Button Demo");
foreach $_ (@names) {
    $mw->Button(-text => $_,
                  -command => print_name($_))->pack();
  }
  sub print_name {
      print "$_[0] was pressed!\n";
  }

MainLoop();

試したこと

おそらくcommandオプションのサブルーチンの呼び出し方が良くないのかもしれません

Answer 1

-command => ...で指定するべきは「関数へのリファレンス」ですね。このコードではそうなっていません。

以下の記事のコーディング例（「コールバックへの引き数を規定する」のあたり
）が参考になると思います。
https://www.ibm.com/developerworks/jp/linux/library/l-ptkwidg/index.html

質問とは直接関係ないですが、インデントや改行のつけ方が適当すぎます。コードのチェックがえらくやりづらかったと述べておきます。模範コードを見て規則正しく書いてください。それだけで変なバグをかなり阻止できます。