my @computers = grep { /\$$/ } @users;
s/\$$// foreach @computers;         # remove trailing $
@computers = join("\n",@computers);