It would help us if you show us what the content of the file looks like. For test purposes it's really handy to have the test data "built in" (see I know what I mean. Why don't you? for hints on doing that).

A couple of, not quite related, tips will help with finding and fixing problems generally:

• Always use strictures (use strict; use warnings;)
• Always use three parameter open and lexical file handles (open my $fh, '<', $filePath or die "Can't open '$filePath': $!\n")

It helps a lot while developing code to ignore unimportant stuff like managing input and output files. The "built in data" trick isn't just for us, it helps you too. Perl helps by letting you tack an input file to the end of the script with __DATA__ and you can use print without a file handle to see the output immediately in the console without having to dig into an output file.

Without worrying about how to write the code, how did you imagine a user of the script would give the edit information? From the user's perspective what do you imagine the sequence of events to be?

I am updating it now and I will post here aswell with the new code. The text file says this exactly Hamburger - 1.79 Cheeseburger - 2.00 Fries - 1.50

I took a different approach and had perl read the file print what it said then take that and put it into a hash now I need to take user input and change the hash. My guess would be to use a foreach loop to run through each line of the uploaded hash and change it.

use strict;
use warnings;

my $file = 'gp1data.txt';
open my $info, $file || die "Could not open $file: $!";

while( my $line = <$info>) {
    chomp($line);
    print $line;
    (my $word1, my $word2) = split /-/, $line;
    $hash{word1} = $word2;
}
while ( my ($k, $v) = each $hash){
    print "key $k => $v\n";
}
<>;
[download]

You haven't yet taken your programmer hat off and put a user hat on. Until you do that and specify how the user will interact with your script, you can't write the script!

Is your input really all on one line? Maybe you need to put your sample data in code tags (you can edit your node to do that).

Premature optimization is the root of all job security

# pseudocode
# PART 0 - load useful stuffs and define some useful vars
use strict;
use warnings;
# maybe use Term::ReadLine; # a useful tool to grab user input


my $filename = $ARGV[0] || 'defaultfile.txt';
my $separator = ' - '; # in your OP you split using '-' and this leave
+s a blank space after the item an another before the price!
my $was_modified = 0;  # count total modifications

make a copy of the original file with a date in the name and possibly 
+another exstension, just in case

open the file for reading
my @alllines = <$file_handle>; # in list context <> reads all the line
+s (good for not huge files)
                               # ATTENTION: you still have all newline
+s at end of each record!!
close file_handle or die



# PART 1 - present the file to the user: show also the index of the ar
+ray that we will use to modify the entry, later
# better to define a sub to show the file content:

sub showfile {
 foreach my $index( 0 .. $#alllines  ) {  # $#alllines is the last ind
+ex (the number of) of the @alllines array

  chomp $alllines[$index];  # remove newlines
  
  print "[$index] $alllines[$index]\n"

 }
 modify_from_input; # call teh sub defined below: grab user input and 
+come back to this sub again
}

showfile; # call the sub



# PART 2 - edit prices
# grab the user input and modify the array entry. a sub is better

sub modify_from_input {
 print "Enter the index you want to modify: (0 - $#alllines)\n";
 my $input = ... # grab the input
 chomp $input;   # remember newlines!
 
 if input is invalid warn something and call the same sub again
 else
  my ($name, $price) split $separator, $alllines[$index];
  print "Enter new price for [$name] (was [$price]) or 'write' to writ
+e the file:\n"
  my $new_price = <STDIN>;
  chomp $new_price;
  # validate $new_price ?
  
  if new_price is empty -> remove the item? -> splice the array -> sho
+wfile
  return if $new_price eq 'write'; # break the loop of the 2 subs and 
+go to the end of program
  # modification!
  $was_modified++; 
  $alllines[$index] = $name.$separator.$new_price;

  showfile; # we go back in show mode
}




# PART 3 - modify the file: we arrive here only if user enter 'write' 
+while in the modify_from_input sub 


open my $write, '>', filename or die  # here we are rewriting the orig
+inal file
print $write "$_\n" for @alllines;
if $was_modified print "$was_modified modifications were applied\n"
else print "no modifications\n"
close $write or die;
print "$filename succesfully written\n";
exit 0;
[download]