ユニークな配列に整形

Perl 
#!c:/perl/bin/perl

#-------------------------------------------------------
# ここにデータを貼り付けてください
#-------------------------------------------------------

$data =<<EOT;
小野塚様
BCC小林様
Ajax
営業企画ミーティング
club
Van Halen
岡本 健一様
Crazy
休講
Max
金成 さゆり様
Hendrix
Geek
古川様
森 聡子様
books
Hendrix
Bon
山下 絵里様
Van Halen
休講
EOT

############################################################



my $html_header_desc=<<"__EOT__";
Content-type: text/html

<html>
<head>
  <meta http-equiv='content-type' content='text/html;charset=utf-8'>
  <title>$window_title</title>
  <meta http-equiv="content-style-type" content="text/css">
  <link rel="stylesheet" type="text/css" href="css/carsheet.css">
</head>
<body style='margin:1em; padding:0px; background:#FFFFFF; '>
<pre>
__EOT__

print $html_header_desc;


@array = split("\n",$data);

@array_unique = grep !$seen{$_}++, @array;

#$str = join ("\n", unique(sort(@array_unique)));
$str = join ("\n", sort(@array_unique));

print $str ."\n";