#!/bin/perl
while (<>) {
   chomp;
   $_ =~ (/\b^\$\b/);
   push @in, $1;
}

$prev = 'nonesuch';
@iner = grep($_ ne $prev && ($prev = $_), @in);

foreach $value (@iner) {
   print $value,"\n";
}